Teach Your Children: Road Construction Ahead/Teach Your Children: Road Construction Ahead.iso/pc/rca/road.dxr/00093_SimHandlers.ls

Text File | 1996-07-17 | 14.0 KB | 420 lines

global gSimObject, gTruckObject, gLevelObject, gGasGaugeObject, gCDpath, gRollAnimButton, gCulvertObject, gDebug, gFileSep

on checkBlockage adjCell, adjObj, adjVector
  set blockedFlag to 0
  set riverTileName to char 1 of the name of cast the tileNum of adjObj
  set bridgeList to getProp(the bridgeList of gSimObject, riverTileName)
  set bridgeData to getProp(bridgeList, adjVector)
  set exitDir to getAt(bridgeData, 2)
  set otherSideCell to adjCell + getProp(the moveList of gSimObject, exitDir)
  set otherSideObj to getAt(the cellList of gSimObject, otherSideCell)
  if getPos(the adjacentList of adjObj, exitDir) = 0 then
    set blockedFlag to 1
  end if
  if (the tileType of otherSideObj = #Road) or (the tileType of otherSideObj = #Bridge) or (the tileType of otherSideObj = #Building) or (the tileType of otherSideObj = #immovable) or (the tileType of otherSideObj = #River) then
    set blockedFlag to 1
  end if
  return blockedFlag
end

on placeObstacle obstacleDataList
  set options to (count(obstacleDataList) - 1) / 3
  set probability to getLast(obstacleDataList)
  repeat with cell = 1 to count(the cellList of gSimObject)
    if getOne(the pathList of gSimObject, cell) = 0 then
      set cellObj to getAt(the cellList of gSimObject, cell)
      if the tileType of cellObj = #BG then
        if random(100) <= probability then
          set choice to (random(options) - 1) * 3
          set the tileType of cellObj to getAt(obstacleDataList, choice + 1)
          set firstTileNum to getAt(obstacleDataList, choice + 2)
          set variations to getAt(obstacleDataList, choice + 3)
          set the tileNum of cellObj to firstTileNum + random(variations) - 1
          set the startTileType of cellObj to the tileType of cellObj
          set the startTileNum of cellObj to the tileNum of cellObj
        end if
      end if
    end if
  end repeat
end

on navButtonHandler
  set simButList to the simButtonList of gSimObject
  if the status of gTruckObject <> #animating then
    if not objectp(gRollAnimButton) and (the available of getProp(simButList, #alert) <> 1) then
      if buttonHandler() = 1 then
        startBuffering()
        puppetSound("arrowClick")
        updateStage()
        if the startSimFlag of gSimObject = 1 then
          set the startSimFlag of gSimObject to 0
        end if
        set whichbutton to the clickOn - the channel of getProp(simButList, #n) + 1
        set move to getPropAt(simButList, whichbutton)
        repeat while soundBusy(1)
        end repeat
        puppetSound(0)
        moveTruck(gTruckObject, move)
        flushBuffer()
      end if
    end if
  end if
end

on refreshControls availableMoveList
  repeat with x = 1 to 8
    set position to getPos(availableMoveList, getAt(the arrowList of gSimObject, x))
    set buttonObject to getAt(the simButtonList of gSimObject, x)
    if position = 0 then
      set the available of buttonObject to 0
      set the locH of sprite the channel of buttonObject to 1000
      next repeat
    end if
    set the available of buttonObject to 1
    set the locH of sprite the channel of buttonObject to the locH of getAt(the simButtonList of gSimObject, x)
  end repeat
end

on resetGame
  puppetSound("RESETSIM")
  removeMessage()
  showDemoButton()
  set the startSimFlag of gSimObject to 1
  set the finishedFlag of gSimObject to 0
  set the demoFlag of gSimObject to 0
  set the buildingsConnected of gSimObject to 0
  hideInvisibleButtons(gSimObject)
  set the invisibleButtonList of gSimObject to [0, 0, 0, 0, 0, 0, 0, 0]
  erasePlayfield(gSimObject)
  repeat with x = 1 to count(the cellList of gSimObject)
    set cellObj to getAt(the cellList of gSimObject, x)
    if the tileType of cellObj = #Road then
      set the connector of cellObj to 0
    else
      if the tileType of cellObj = #Building then
        set the connector of cellObj to 0
      end if
    end if
    set the tileNum of cellObj to the startTileNum of cellObj
    set the tileType of cellObj to the startTileType of cellObj
    initAdjacentList(cellObj)
  end repeat
  initTruckProps(gTruckObject, the firstCell of gTruckObject, the startDirection of gTruckObject)
  set availableMoveList to createAvailableList(gTruckObject, the cell of gTruckObject)
  refreshControls(availableMoveList)
  placeInvisibleButtons(gSimObject, availableMoveList, 0)
  resetGasGauge(gGasGaugeObject, count(the pathList of gSimObject))
  redrawBG(gSimObject)
  drawTruck(gTruckObject)
  repeat while soundBusy(1)
  end repeat
  puppetSound(0)
end

on afterPlayback
  set the mouseDownScript to EMPTY
  showDemoButton()
  hideInvisibleButtons(gSimObject)
  set the invisibleButtonList of gSimObject to [0, 0, 0, 0, 0, 0, 0, 0]
  erasePlayfield(gSimObject)
  newGameAlert()
  updateStage()
  clearGrid()
  newGame(gSimObject)
  set availableMoveList to createAvailableList(gTruckObject, the cell of gTruckObject)
  refreshControls(availableMoveList)
  updateStage()
  flushBuffer()
  puppetSimButtons()
  simIntroSong()
  go(the frame)
end

on clearGrid
  repeat with x = 1 to count(the cellList of gSimObject)
    set cellObj to getAt(the cellList of gSimObject, x)
    if the tileType of cellObj = #Road then
      set the connector of cellObj to 0
    else
      if the tileType of cellObj = #Building then
        set the connector of cellObj to 0
      end if
    end if
    set the startTileNum of cellObj to 0
    set the tileNum of cellObj to 0.0
    set the startTileType of cellObj to #BG
    set the tileType of cellObj to #BG
    initAdjacentList(cellObj)
  end repeat
end

on areYouStuck cell, availableMoveList
  set stuckFlag to 1
  if count(availableMoveList) > 0 then
    repeat with adjVector in availableMoveList
      set cellObj to getAt(the cellList of gSimObject, cell + getProp(the moveList of gSimObject, adjVector))
      if the tileType of cellObj <> #immovable then
        set stuckFlag to 0
        exit repeat
      end if
    end repeat
  end if
  if stuckFlag = 1 then
    stuckAlert()
  end if
  return stuckFlag
end

on blockCrossings whatCell, latestMove
  global n, NE, E, SE, s, SW, w, NW
  set blockList to []
  if (latestMove = #n) or (latestMove = #s) then
    if latestMove = #n then
      set blockList to blockCell(whatCell, blockList, #NW, #E)
      set blockList to blockCell(whatCell, blockList, #NE, #w)
    else
      set blockList to blockCell(whatCell, blockList, #SW, #E)
      set blockList to blockCell(whatCell, blockList, #SE, #w)
    end if
  else
    if (latestMove = #E) or (latestMove = #w) then
      if latestMove = #E then
        set blockList to blockCell(whatCell, blockList, #SE, #n)
        set blockList to blockCell(whatCell, blockList, #NE, #s)
      else
        set blockList to blockCell(whatCell, blockList, #SW, #n)
        set blockList to blockCell(whatCell, blockList, #NW, #s)
      end if
    end if
  end if
  return blockList
end

on blockCell whatCell, blockList, vector, blockedMove
  if getOne(the adjacentList of getAt(the cellList of gSimObject, whatCell), vector) <> 0 then
    set blockCell to whatCell + getProp(the moveList of gSimObject, vector)
    set adjList to the adjacentList of getAt(the cellList of gSimObject, blockCell)
    set position to getPos(adjList, blockedMove)
    if position <> 0 then
      deleteAt(adjList, position)
    end if
    add(blockList, blockCell)
  end if
  return blockList
end

on checkForBridge spriteObj, cellObj
  set the tileType of cellObj to the startTileType of cellObj
  set the tileNum of cellObj to the startTileNum of cellObj
  set reverseMove to getProp(the convertList of gSimObject, getLast(the recordedMoveList of gSimObject))
  deleteAt(the recordedMoveList of gSimObject, count(the recordedMoveList of gSimObject))
  set the cell of spriteObj to the cell of spriteObj + getProp(the moveList of gSimObject, reverseMove)
  set the cellObject of spriteObj to getAt(the cellList of gSimObject, the cell of spriteObj)
  set cellObj to the cellObject of spriteObj
  set the Xloc of spriteObj to the Xloc of cellObj
  set the Yloc of spriteObj to the Yloc of cellObj
  if the tileType of cellObj = #Bridge then
    checkForBridge(spriteObj, the cellObject of spriteObj)
  end if
end

on surroundSprite cellNum, newMove
  set cellObj to getAt(the cellList of gSimObject, cellNum)
  clearCoverTiles()
  set coverList to getProp(getProp(the covList of gSimObject, the cellType of cellObj), newMove)
  set cellCount to 1
  repeat with spriteNum = the firstSurroundSprite of gSimObject to the firstSurroundSprite of gSimObject + count(coverList) - 1
    set cellIndex to cellNum + getAt(coverList, cellCount)
    if (cellIndex > 0) and (cellIndex <= count(the cellList of gSimObject)) then
      set coverCell to getAt(the cellList of gSimObject, cellIndex)
      redrawCell(coverCell, spriteNum)
    end if
    set cellCount to cellCount + 1
  end repeat
  updateStage()
end

on interruptDemo
  startBuffering()
  if (marker(0) = label("River")) or (marker(0) = label("BridgeDone")) then
    clearAllActors()
    puppetPalette("RiverPal")
    go("Grass")
    go(the frame + 1)
    repeat with button = 1 to 4
      set the visible of sprite (the firstArrowChan of gCulvertObject + button - 1) to 1
    end repeat
    puppetPalette("SimPal", 60)
    updateStage()
    puppetPalette(0)
    unLoadCast()
  end if
  unpuppetAll()
  set the demoFlag of gSimObject to 0
  set the finishedFlag of gSimObject to 1
  set the obstacleState of gSimObject to EMPTY
  set the programmedMove of gTruckObject to 0
  set the status of gTruckObject to #idle
  go(label("Simulator" & string(the level of gLevelObject)))
  set the mouseDownScript to EMPTY
  flushBuffer()
  abort()
end

on clearCoverTiles
  repeat with spriteNum = the firstSurroundSprite of gSimObject to the firstSurroundSprite of gSimObject + 8 - 1
    set the locH of sprite spriteNum to 1000
  end repeat
end

on puppetSurroundSprites
  repeat with spriteNum = the firstSurroundSprite of gSimObject to the firstSurroundSprite of gSimObject + 6 - 1
    puppetSprite(spriteNum, 1)
  end repeat
end

on unPuppetSurroundSprites
  repeat with spriteNum = the firstSurroundSprite of gSimObject to the firstSurroundSprite of gSimObject + 6 - 1
    puppetSprite(spriteNum, 0)
  end repeat
end

on unpuppetSimButtons
  repeat with button in the simButtonList of gSimObject
    puppetSprite(the channel of button, 0)
  end repeat
  repeat with x = 1 to count(the invisibleButtonList of gSimObject)
    set channel to the firstInvisButChan of gSimObject + x - 1
    puppetSprite(channel, 0)
  end repeat
  if the level of gLevelObject = 3 then
    puppetSprite(the channel of gGasGaugeObject, 0)
  end if
end

on puppetSimButtons
  repeat with button in the simButtonList of gSimObject
    puppetSprite(the channel of button, 1)
  end repeat
  repeat with x = 1 to count(the invisibleButtonList of gSimObject)
    set channel to the firstInvisButChan of gSimObject + x - 1
    puppetSprite(channel, 1)
  end repeat
end

on hideControls
  repeat with x = 1 to 8
    set channel to the channel of getAt(the simButtonList of gSimObject, x)
    set the locH of sprite channel to 1000
  end repeat
end

on hideDemoButton
  set demoObject to getProp(the simButtonList of gSimObject, #Demo)
  set the locH of sprite the channel of demoObject to 1000
  set the available of demoObject to 0
end

on showDemoButton
  set demoObject to getProp(the simButtonList of gSimObject, #Demo)
  set the locH of sprite the channel of demoObject to the locH of demoObject
  set the locV of sprite the channel of demoObject to the locV of demoObject
  set the castNum of sprite the channel of demoObject to the bmap of demoObject
  set the available of demoObject to 1
end

on unpuppetControls
  repeat with x = 1 to count(the simButtonList of gSimObject)
    set channel to the channel of getAt(the simButtonList of gSimObject, x)
    puppetSprite(channel, 0)
  end repeat
end

on stuckAlert
  startBuffering()
  sound playFile 1, gCDpath & "SOUND" & gFileSep & "SIM" & gFileSep & "10VOSTUK"
  set buildingsConnected to 0
  repeat while soundBusy(1)
  end repeat
  resetGame()
  flushBuffer()
end

on outOfGasAlert
  startBuffering()
  set soundName to getAt(["10FUEL", "10FUEL2"], random(2))
  sound playFile 1, gCDpath & "SOUND" & gFileSep & "SIM" & gFileSep & soundName
  set buildingsConnected to 0
  repeat while soundBusy(1)
  end repeat
  resetGame()
  flushBuffer()
end

on simTroubleAlert bmap
  set the available of getProp(the simButtonList of gSimObject, #alert) to 1
  set the locH of getProp(the simButtonList of gSimObject, #alert) to 131
  set the locH of sprite 48 to 131
  set the locV of getProp(the simButtonList of gSimObject, #alert) to 411
  set the locV of sprite 48 to 411
  set the bmap of getProp(the simButtonList of gSimObject, #alert) to bmap
  set the castNum of sprite 48 to bmap
  updateStage()
end

on newGameAlert
  set the castNum of sprite 48 to the number of cast "newGameAlert"
  set the locH of sprite 48 to 320
  set the locV of sprite 48 to 198
end

on removeMessage
  set the available of getProp(the simButtonList of gSimObject, #alert) to 0
  set the locH of sprite 48 to -500
end

on roadCongrats
  set congratsName to "CONGRAT" & string(random(5))
  sound playFile 1, gCDpath & "SOUND" & gFileSep & "SIM" & gFileSep & congratsName
  repeat while soundBusy(1)
  end repeat
end

on redrawCell object, whichSprite
  if the tileType of object <> #BG then
    set the locH of sprite whichSprite to the Xloc of object
    set the locV of sprite whichSprite to the Yloc of object
    set the castNum of sprite whichSprite to the tileNum of object
  end if
end

on simIntroSong
  sound playFile 1, gCDpath & "SOUND" & gFileSep & "SIM" & gFileSep & the scenarioSong of gSimObject
  set the scenarioSong of gSimObject to #pending
end

on unpuppetAllSprites
  repeat with x = 1 to 48
    puppetSprite(x, 0)
  end repeat
end

on errorTrapForDebugging moveList, pathList, availableMoveList
  if count(moveList) = 0 then
    put "pathList :" && pathList
    put "availableMoveList :" && availableMoveList
    redrawBG(gSimObject)
    drawTruck(gTruckObject)
    beep(2)
    repeat while 1 = 1
    end repeat
  end if
end

on putValues
  repeat with x = 1 to count(the cellList of gSimObject)
    set cellObj to getAt(the cellList of gSimObject, x)
    showObjectProps(cellObj)
  end repeat
end